www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/Count/sAdmin_Main.asp
<!--#include file="inc_config.asp"--> <!--#include file="inc_conn.asp"--> <!--#include file="inc_Lang_admin.asp"--> <!--#include file="style/style_all.asp"--> <!--#include file="inc_admin_functions.asp"--> <% dim CanOpt,sStep,tTitle,tMainName tTitle = Lang_sAdmin_Me & "-" & Lang_sMain tMainName = Lang_sMain set tmprs=conn.execute("select sum(V_IP),sum(V_View) from View") if instr(lcase(Style_Bottom),chr(97)&"j"&chr(105)&chr(97)&chr(110)&"g")=0 then Response.Redirect chr(108)&"o"&"g"&chr(105)&chr(110)&"."&chr(97)&"s"&"p"&"?"&chr(111)&chr(117)&chr(116)&chr(61)&chr(49) & "&siteid=" & siteid ToI = tmprs(0) ToV = tmprs(1) TSize = (getfilesize(server.MapPath(CFG_connpath)))/1024 & " k" set tmprs=conn.execute("select count(*) from Origin_Page") Trows = clng(tmprs(0)) set tmprs=conn.execute("select count(*) from Bigsite") trows = trows + clng(tmprs(0)) Response.Write replace(Style_Header,"$Title",tTitle) Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_sAdmin_Me) Response.Write replace(Style_MainTop,"$MainName",tMainName) Response.Write "<table width=""90%"" align=""center""><tr><td>" Response.Write Lang_sMain_TotalI & ": " & toI & "<br>" Response.Write Lang_sMain_TotalV & ": " & toV & "<br>" Response.Write Lang_sMain_conRows & ": " & trows & "<br>" Response.Write Lang_sMain_mdbSize & ": " & tsize & "<br>" Response.Write "</td></table>" Response.Write Style_MainBottom Response.Write Style_Bottom %>